home *** CD-ROM | disk | FTP | other *** search
/ Meeting Pearls 4 / Meeting Pearls Vol. IV (1996)(GTI - Schatztruhe)[!].iso / Pearls / comm / ums / Install < prev    next >
Text File  |  1996-10-07  |  3KB  |  123 lines
  1. (transcript "On installing UMS...")
  2. (
  3.     (set UMSSetup
  4.         (askchoice
  5.             (prompt "Select which kind of install you want:")
  6.             (choices "Install on HD" "Set up on CD (The MB MUST be copied to HD!)")
  7.             (default CDSetup)
  8.             (help "Install will copy ALL files (ums.library, umsserver, etc...) on your HD, setup will only copy the message base. The message base MUST be copied.")
  9.         )
  10.     )
  11.  
  12.     (set InstallDir
  13.         (askdir
  14.             (prompt "What directory would you like UMS to be installed to?  (NOTE: A directory called UMS will be created)")
  15.             (help @askdir-help)
  16.             (default "Work:")
  17.         )
  18.     )
  19.  
  20.     (set InstallDir (tackon InstallDir "UMS"))
  21.  
  22.     (makedir InstallDir)
  23.     (makedir (tackon InstallDir "Log"))
  24.     (makedir (tackon InstallDir "UUSpool"))
  25.     (makedir (tackon InstallDir "UUSpool/infra"))
  26.     (makedir (tackon InstallDir "UUSpool/space"))
  27.     (makedir (tackon InstallDir "UUPublic"))
  28.  
  29.     (makeassign "UMS"     InstallDir)
  30.  
  31.     (copyfiles
  32.         (prompt (cat "Copying MB to " InstallDir))
  33.         (help @copyfiles-help)
  34.         (source "")
  35.         (infos)
  36.         (pattern "MB")
  37.         (dest InstallDir)
  38.     )
  39.  
  40.     (run (cat "echo UMS:MB") " >ENV:UMSMB.meeting")
  41.  
  42.     (if (= 0 UMSSetup)
  43.     (
  44.         (run (cat "echo UMS:MB") " >ENVARC:UMSMB.meeting")
  45.  
  46.         (copyfiles
  47.             (prompt (cat "Copying files to " InstallDir))
  48.             (help @copyfiles-help)
  49.             (source "")
  50.             (infos)
  51.             (pattern "(IntuiNews|ConfUMS|Doc|Reader|Rexx|Scripts|Tools|UULib)#?")
  52.             (dest InstallDir)
  53.         )
  54.  
  55.         (copylib
  56.             (prompt (cat "Copying UMSServer to L:"))
  57.             (help @copyfiles-help)
  58.             (source "L/UMSServer")
  59.             (dest "L:")
  60.         )
  61.  
  62.         (copylib
  63.             (prompt (cat "Copying flush.library to Libs:"))
  64.             (help @copyfiles-help)
  65.             (source "Libs/flush.library")
  66.             (dest "Libs:")
  67.         )
  68.  
  69.         (copylib
  70.             (prompt (cat "Copying ums.library to Libs:"))
  71.             (help @copyfiles-help)
  72.             (source "Libs/ums.library")
  73.             (dest "Libs:")
  74.         )
  75.  
  76.         (copylib
  77.             (prompt (cat "Copying hgrexxsupport.library to Libs:"))
  78.             (help @copyfiles-help)
  79.             (source "Libs/hgrexxsupport.library")
  80.             (dest "Libs:")
  81.         )
  82.  
  83.         (copylib
  84.             (prompt (cat "Copying rexxdossupport.library to Libs:"))
  85.             (help @copyfiles-help)
  86.             (source "Libs/rexxdossupport.library")
  87.             (dest "Libs:")
  88.         )
  89.  
  90.         (copylib
  91.             (prompt (cat "Copying traplist.library to Libs:"))
  92.             (help @copyfiles-help)
  93.             (source "Libs/traplist.library")
  94.             (dest "Libs:")
  95.         )
  96.  
  97.         (copyfiles
  98.             (prompt (cat "Copying locales to Locale:"))
  99.             (help @copyfiles-help)
  100.             (source "Locale")
  101.             (infos)
  102.             (pattern "#?")
  103.             (dest "Locale:")
  104.         )
  105.  
  106.         (copyfiles
  107.             (prompt (cat "Copying UMS.info"))
  108.             (help @copyfiles-help)
  109.             (source "/UMS.info")
  110.             (infos)
  111.             (pattern "#?")
  112.             (dest "UMS:/")
  113.         )
  114.     )
  115.     (
  116.         (run "Assign UMS:    \"\" ADD")
  117.         (run "Assign L:      UMS:L ADD")
  118.         (run "Assign Locale: UMS:Locale ADD")
  119.         (run "Assign Rexx:   UMS:Rex ADD")
  120.         (run "Assign UMS:    \"\" ADD")
  121.     ))
  122. )
  123.